﻿#pragma once

#include <brynet/net/TcpService.hpp>

namespace brynet { namespace net {

    /* binary search in memory */
    void memsearch(const char *hay, size_t haysize, const char *needle, size_t needlesize, size_t& result, bool& isOK)
    {
        size_t haypos, needlepos;
        haysize -= needlesize;

        for (haypos = 0; haypos <= haysize; haypos++)
        {
            for (needlepos = 0; needlepos < needlesize; needlepos++)
            {
                if (hay[haypos + needlepos] != needle[needlepos])
                {
                    // Next character in haystack.
                    break;
                }
            }
            if (needlepos == needlesize)
            {
                result = haypos;
                isOK = true;
                return;
            }
        }

        isOK = false;
    }

    class PromiseReceive;

    std::shared_ptr<PromiseReceive> setupPromiseReceive(const TcpConnection::Ptr& session);

    class PromiseReceive : public std::enable_shared_from_this<PromiseReceive>
    {
    public:
        using Ptr = std::shared_ptr<PromiseReceive>;
        using Handle = std::function<bool(const char* buffer, size_t len)>;

        PromiseReceive::Ptr receive(size_t len, Handle handle)
        {
            return receive(std::make_shared<size_t>(len), std::move(handle));
        }

        PromiseReceive::Ptr receive(std::shared_ptr<size_t> len, Handle handle)
        {
            return helpReceive(std::move(len), "", std::move(handle));
        }

        PromiseReceive::Ptr receiveUntil(std::string str, Handle handle)
        {
            if (str.empty())
            {
                throw std::runtime_error("str is empty");
            }

            return helpReceive(nullptr, std::move(str), std::move(handle));
        }

    private:
        PromiseReceive::Ptr helpReceive(std::shared_ptr<size_t> len, std::string str, Handle handle)
        {
            auto pr = std::make_shared<PendingReceive>();
            pr->len = std::move(len);
            pr->str = std::move(str);
            pr->handle = std::move(handle);
            mPendingReceives.push_back(std::move(pr));

            return shared_from_this();
        }

        size_t process(const char* buffer, const size_t len)
        {
            size_t procLen = 0;

            while (!mPendingReceives.empty() && len >= procLen)
            {
                auto pendingReceive = mPendingReceives.front();
                if (pendingReceive->len != nullptr)
                {
                    const auto tryReceiveLen = *pendingReceive->len;
                    if ((len - procLen) < tryReceiveLen)
                    {
                        break;
                    }

                    mPendingReceives.pop_front();
                    procLen += tryReceiveLen;
                    if (pendingReceive->handle(buffer + procLen - tryReceiveLen, tryReceiveLen) && tryReceiveLen > 0)
                    {
                        mPendingReceives.push_front(pendingReceive);
                    }
                }
                else if (!pendingReceive->str.empty())
                {
                    size_t pos = 0;
                    bool isOK = false;
                    auto data = buffer + procLen;
                    memsearch(buffer + procLen,
                        len - procLen,
                        pendingReceive->str.c_str(),
                        pendingReceive->str.size(),
                        pos,
                        isOK);

                    if (!isOK)
                    {
                        break;
                    }

                    mPendingReceives.pop_front();
                    procLen += (pos + pendingReceive->str.size());
                    if (pendingReceive->handle(data, pos))
                    {
                        mPendingReceives.push_front(pendingReceive);
                    }
                }
                else
                {
                    break;
                }
            }

            return procLen;
        }

    private:
        struct PendingReceive
        {
            std::shared_ptr<size_t> len;
            std::string str;
            Handle handle;
        };

        std::deque<std::shared_ptr<PendingReceive>> mPendingReceives;

        friend std::shared_ptr<PromiseReceive> setupPromiseReceive(const TcpConnection::Ptr& session);
    };

    std::shared_ptr<PromiseReceive> setupPromiseReceive(const TcpConnection::Ptr& session)
    {
        auto promiseReceive = std::make_shared<PromiseReceive>();
        session->setDataCallback([promiseReceive](const char* buffer,
            size_t len) {
            return promiseReceive->process(buffer, len);
        });

        return promiseReceive;
    }

} }
